100 SCREEN 9
110 CLS
130 XOFFSET=0:YOFFSET=0
140 FOR C=65 TO 90
150   CHAR$=CHR$(C)
160   GOSUB 500
170 XOFFSET=XOFFSET+64
180 IF XOFFSET=640 THEN XOFFSET=0:YOFFSET=YOFFSET+56
190 NEXT C
200 IN$=INKEY$:IF IN$="" THEN 200
210 END
220 REM -----
500 F$=CHAR$+".CHR"
510 ON ERROR GOTO 590
520 OPEN F$ FOR INPUT AS 1
530 IF EOF(1) THEN 580
540 INPUT #1,X,Y
550 PSET(X+XOFFSET,Y+YOFFSET),7
560 IN$=INKEY$:IF IN$<>"" THEN 110
570 GOTO 530
580 CLOSE:RETURN
590 RESUME 600
600 ON ERROR GOTO 0:RETURN

